proc reload {obj} {
	if {[info object class $obj] eq "::oo::class"} {
		$obj destroy
		source sqlitedb_class.tcl
		set ::db [$obj new ../data/daidze_data.sdb]
	} else { 
		source sqlitedb_class.tcl
		set ::db [$obj new ../data/daidze_data.sdb]
	}
}